
# generate figure A1

# load packages
library(rio) # load data
library(tidyverse) # data manipulation

# set working directory
setwd("~/replication_files/")

# load data for analysis
data_with_dictionary <- import("data/full_data.csv")

data_with_dictionary %>% 
  group_by(year) %>%
  summarize(sum_published_consutations = sum(article_iv_publication)) %>%
  ungroup() %>%
  ggplot(aes(x = year, y = sum_published_consutations)) + geom_line() + theme_classic() +
  labs(x = "Year", y = "Number of Available Reports") +
  scale_x_continuous(breaks = c(2004,2009,2014,2019))

ggsave(filename = "figures/figA1.pdf", width = 7, height = 5)
